home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / ipar.h < prev    next >
Text File  |  1996-01-30  |  789b  |  22 lines
  1. /*
  2.  * Copyright (C) 1985-1992  New York University
  3.  * 
  4.  * This file is part of the Ada/Ed-C system.  See the Ada/Ed README file for
  5.  * warranty (none) and distribution info and also the GNU General Public
  6.  * License for more details.
  7.  
  8.  */
  9. #define FAA(i, j)    (((i) = (i)+(j)) - (j))
  10. #define FAS(i, j)    (fetch_and_store((int *) i, (int) j))
  11. #define FAS_Q(i,j)    ((struct q_item *)pointer_fetch_and_store(         \
  12.                  (char **)i,(char *)j ))
  13. #define FAS_RTS(i,j)    ((struct rts_item *) pointer_fetch_and_store(       \
  14.                  (char **)i,(char *)j ))
  15. #define TAS(i)        (((i)>=1) ? ((i)=1) :(((i) = 1) ? 0 : 0))
  16. #define TAR(i)        (((i)>=1) ? ((i)=1) :(((i) = 1) ? 0 : 0))
  17.  
  18. #define INC(i)        (FAA((i), 1))
  19. #define DEC(i)        (FAA((i),-1))
  20. #define INCC(i)        (increment(&(i)))
  21. #define DECC(i)        (decrement(&(i)))
  22.